home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / slaver.red < prev    next >
Text File  |  1989-07-30  |  1KB  |  31 lines
  1. ;Slaver
  2. ;by Gerald Frost
  3. ;United States of America
  4. ;
  5. TOP           MOV      BOMB          TOP-2
  6.               JMP      TOP        <  TOP-2
  7. CATCH         JMP   @  CATCH         TOP-1
  8. BOMB          DAT      0             0
  9. LOOP          MOV      BOMB          TOP-2
  10.               ADD   # -5             CATCH
  11.               ADD   #  5             SLAVER
  12. SLAVER        MOV      CATCH         TRIGGER
  13.               DJN      LOOP       #  1620
  14.               MOV   # -8             CATCH
  15.               MOV   #  16            SLAVER
  16.               MOV   #  1620          SLAVER+1
  17.               SPL   <  TOP-2         TOP
  18.               JMP      SLAVER        TOP
  19. CLUB          DAT      0             0
  20. ENTRY         MOV      TOP+1      <  SLOT
  21.               MOV      BOMB       <  SLOT
  22. HOLE          MOV      BOMB       <  SLOT
  23.               SPL   <  TOP-6         HOLE
  24. SLOT          JMP      ENTRY         TOP-1
  25.               JMP      ENTRY         0
  26. TRIGGER       JMP      ENTRY         0
  27.               JMP      ENTRY         0
  28.               JMP      ENTRY         0
  29.               END      SLAVER
  30.  
  31.